COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	@x Tell WEAVE to print only the changes:
C00003 00003	@x Error messages deflected to the terminal:
C00004 00004	@x Specify compiler directives:
C00005 00005	@x Opening the tfm_file:
C00007 ENDMK
C⊗;
@x Tell WEAVE to print only the changes:
	\centerline{\hsize 5in\baselineskip9pt
		\vbox{\ninerm\noindent
		The preparation of this report
		was supported in part by the National Science
		Foundation under grants IST-8201926 and MCS-8300984,
		and by the System Development Foundation. `\TeX' is a
		trademark of the American Mathematical Society.}}}
@y
\centerline{(This listing shows the changes for {\sc WAITS} only)}}
\let\maybe=\iffalse
@z
@x Error messages deflected to the terminal:
other remarks are written on the |output| file, which the user may
choose to assign to the terminal if the system permits it.
@↑system dependencies@>

The term |print| is used instead of |write| when this program writes on
the |output| file, so that all such output can be easily deflected.

@d print(#)==write(#)
@d print_ln(#)==write_ln(#)
@y
other remarks are written on the terminal.
@↑system dependencies@>

The term |print| is used instead of |write|, so that the other modules
are system-independent.

@d print(#)==write(tty,#)
@d print_ln(#)==write_ln(tty,#)
@z
@x Specify compiler directives:
@p program TFtoPL(@!tfm_file,@!pl_file,@!output);
@y
@p @t\4@>@{$D-,W+@} {no debugging overhead}
program TFtoPL(@!tfm_file,@!pl_file);
@z
@x Opening the tfm_file:
@ On some systems you may have to do something special to read a
packed file of bytes. For example, the following code didn't work
when it was first tried at Stanford, because packed files have to be
opened with a special switch setting on the \PASCAL\ that was used.
@↑system dependencies@>

@<Set init...@>=
reset(tfm_file);
@y
@ On some systems you may have to do something special to read a
packed file of bytes. For example, the following code doesn't work without
the \.{/B} switch at {\mc WAITS}, although it probably should?
@↑system dependencies@>

@<Set init...@>=
reset(tfm_file,'','/B:8');
@z